home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / otohime / src / lib / vibra.asm < prev   
Assembly Source File  |  1994-06-01  |  9KB  |  379 lines
  1. ;    PCM SOUND VIBRATO
  2. ;
  3. ;    call from F-BASIC386
  4. ;    callm address,varptr(snd.data),varptr(para),varptr(work area)
  5. ;
  6. ;
  7. ;        1990 3  Hiroshi TODA
  8. ;
  9. ;        1993 12 High C 用に改造
  10. ;
  11. ;    para:dl,mix1,mix2,md1,sp1,ang1,nd2,sp2,ang2
  12. ;
  13. ; 
  14.  
  15.  
  16.     .386p
  17.  
  18.  
  19. param    struc
  20.  
  21.     dd    ?
  22.     dd    ?
  23. sndadd    dd    ?        ; snd.data address
  24. paradd    dd    ?        ; para. address
  25. wadd    dd    ?         ; work address
  26.  
  27. param   ends
  28.  
  29.  
  30. work    struc
  31.  
  32. ;data area
  33.  
  34. del    dd    ?        ; delay Byte
  35. mix1    dd    ?        ; main mix rate
  36. mix2    dd    ?        ; vibrato mix rate
  37. md1    dd    ?        ; modulation1
  38. sp1    dd    ?        ; speed1 (90 = 10000H)
  39. ang1    dd    ?        ; angle1
  40. md2    dd    ?        ; modulation2
  41. sp2    dd    ?        ; speed2 (90 = 10000H)
  42. ang2    dd    ?        ; angle2
  43.  
  44. point0    dd    ?        ; 10000H-point1
  45. point1    dd    ?        ; ov.sampling point (decimal)
  46. point2    dd    ?        ; ov.sampling point (integer)
  47. buf1    dd    ?        ; sampling add buf.
  48.  
  49. work    ends
  50.  
  51.  
  52. cseg    segment    dword public use32 'CODE'
  53.     assume    cs:cseg,ds:cseg
  54.  
  55.     public    sndVibrato
  56.     db    'sndVibrato',10
  57. sndVibrato    proc    near
  58.     push    ebp
  59.     mov    ebp,esp
  60.     push    esi
  61.     push    edi
  62.     push    ebx
  63.  
  64.     mov    esi,[ebp].wadd        ; esi <-- work area top add
  65.     mov    edi,[ebp].sndadd    ; edi <-- snd.data add.
  66.     mov    ecx,[ebp].paradd    ; ecx <-- para. add.
  67.     xor    edx,edx            ; edx=count
  68. main01:    mov    eax,[ecx][edx*4]    ; para. --> work area
  69.     mov    [esi][edx*4],eax
  70.     inc    edx
  71.     cmp    edx,9
  72.     jb    main01
  73.     mov    ecx,[edi+12]        ; length
  74.     sub    ecx,[esi].del
  75.     jbe    mainE                ; jb を jbe に変更 1993 12
  76.     add    edi,[esi].del
  77.     add    edi,32
  78.  
  79. main02:    mov    [esi].point2,edi    ; ov.sampling point cal.
  80.     xor    eax,eax
  81.     mov    [esi].point1,eax
  82.     mov    eax,[esi].ang1
  83.     call    sin            ; eax = sin(eax)*10000H
  84.     imul    dword ptr [esi].md1
  85.     mov    [esi].buf1,eax
  86.     mov    eax,[esi].ang2
  87.     call    sin            ; eax = sin(eax)*10000H
  88.     imul    dword ptr [esi].md2
  89.     add    eax,[esi].buf1
  90.     cdq
  91.     add    [esi].point1+2,eax
  92.     adc    word ptr [esi].point2+2,dx
  93.  
  94.     lea    eax,[esi].point1    ; over sampling
  95.     call    smp
  96.  
  97.     imul    eax,[esi].mix2        ; mix
  98.     mov    [esi].buf1,eax
  99.     xor    ebx,ebx
  100.     sub    ebx,[esi].del
  101.     mov    al,[edi][ebx]
  102.     and    eax,0ffH
  103.     cmp    eax,128
  104.     jb    main05
  105.     mov    edx,eax
  106.     mov    eax,128
  107.     sub    eax,edx
  108. main05:    imul    eax,[esi].mix1
  109.     add    eax,[esi].buf1
  110.     sar    eax,8
  111.     js    main07            ; eax --> pcm data
  112.     je    main07
  113.     cmp    eax,128            ; +
  114.     jb    main08
  115.     mov    eax,127
  116.     jmp    main08
  117. main07:    mov    edx,eax            ; -
  118.     mov    eax,128
  119.     sub    eax,edx
  120.     cmp    eax,256-1    ; data255はloopStopの意味があるから除外 1993 12
  121.     jb    main08
  122.     mov    eax,255-1    ; data255はloopStopの意味があるから除外 1993 12
  123. main08:    mov    [edi][ebx],al
  124.  
  125.     mov    eax,[esi].sp1
  126.     add    [esi].ang1,eax
  127.     mov    eax,[esi].sp2
  128.     add    [esi].ang2,eax
  129.     inc    edi
  130.     dec    ecx
  131.     jne    main02
  132.  
  133. mainE:
  134.     pop    ebx
  135.     pop    edi
  136.     pop    esi
  137.     mov    esp,ebp
  138.     pop    ebp
  139.     ret
  140.  
  141. ;    OVER SAMPLING for PCM DATA(8bit)
  142. ;input    eax = 64bit(32bit/decimal,32bit/integer) data address(ds:)
  143. ;output    eax = over sampring data ( 32bit sign (-128 -- +127) )
  144.  
  145. smp:    push    ebx
  146.     push    ecx
  147.     push    edx
  148.     push    esi
  149.     push    edi
  150.     mov    ebx,[eax]        ; ebx = decimal
  151.     mov    esi,[eax+4]        ; esi = integer
  152.     shr    ebx,24            ; ebx --> 8bit
  153.     jne    smp00
  154.  
  155.     mov    al,[esi]        ; decimal=0
  156.     and    eax,0ffH
  157.     cmp    eax,128
  158.     jb    smp0A
  159.     mov    edx,eax
  160.     mov    eax,128
  161.     sub    eax,edx
  162. smp0A:    jmp    smp06
  163.  
  164. smp00:
  165.     mov    eax,[esi-1]        ; 周囲がみな無信号ならノイズを出さないよう直接0を返す
  166.     cmp    eax,80808080h
  167.     jne    smp0B
  168.     xor    eax,eax
  169.     jmp    smp06
  170.  
  171. smp0B:
  172.     call    smp01
  173. smp01:    pop    edi
  174.     add    edi,smptb-smp01        ; edi = table point
  175.  
  176.     mov    al,[esi]
  177.     and    eax,0ffH
  178.     cmp    eax,128
  179.     jb    smp02
  180.     mov    edx,eax
  181.     mov    eax,128
  182.     sub    eax,edx
  183. smp02:    add    eax,128
  184.     mul    byte ptr cs:[edi][ebx]
  185.     mov    ecx,eax
  186.  
  187.     mov    al,[esi-1]
  188.     and    eax,0ffH
  189.     cmp    eax,128
  190.     jb    smp03
  191.     mov    edx,eax
  192.     mov    eax,128
  193.     sub    eax,edx
  194. smp03:    add    eax,128
  195.     mul    byte ptr cs:[edi][ebx+256]
  196.     sub    ecx,eax
  197.  
  198.     mov    eax,ebx            ; ebx = 256 - ebx
  199.     mov    ebx,256
  200.     sub    ebx,eax
  201.  
  202.     mov    al,[esi+1]
  203.     and    eax,0ffH
  204.     cmp    eax,128
  205.     jb    smp04
  206.     mov    edx,eax
  207.     mov    eax,128
  208.     sub    eax,edx
  209. smp04:    add    eax,128
  210.     mul    byte ptr cs:[edi][ebx]
  211.     add    ecx,eax
  212.  
  213.     mov    al,[esi+2]
  214.     and    eax,0ffH
  215.     cmp    eax,128
  216.     jb    smp05
  217.     mov    edx,eax
  218.     mov    eax,128
  219.     sub    eax,edx
  220. smp05:    add    eax,128
  221.     mul    byte ptr cs:[edi][ebx+256]
  222.     sub    ecx,eax
  223.     sub    ecx,128*256
  224.     sar    ecx,8
  225.     mov    eax,ecx
  226.  
  227. smp06:    pop    edi
  228.     pop    esi
  229.     pop    edx
  230.     pop    ecx
  231.     pop    ebx
  232.     ret    
  233.  
  234. smptb    db    255,255,255,254,254,253,253,252
  235.     db    252,251,251,250,249,249,248,248
  236.     db    247,246,246,245,244,244,243,243
  237.     db    242,241,240,240,239,238,238,237
  238.     db    236,236,235,234,233,233,232,231
  239.     db    230,229,229,228,227,226,225,225
  240.     db    224,223,222,221,221,220,219,218
  241.     db    217,216,215,214,214,213,212,211
  242.     db    210,209,208,207,206,205,204,204
  243.     db    203,202,201,200,199,198,197,196
  244.     db    195,194,193,192,191,190,189,188
  245.     db    187,186,185,184,183,182,181,180
  246.     db    179,178,177,176,175,174,172,171
  247.     db    170,169,168,167,166,165,164,163
  248.     db    162,161,160,158,157,156,155,154
  249.     db    153,152,151,150,148,147,146,145
  250.     db    144,143,142,141,139,138,137,136
  251.     db    135,134,133,132,130,129,128,127
  252.     db    126,125,123,122,121,120,119,118
  253.     db    117,115,114,113,112,111,110,108
  254.     db    107,106,105,104,103,101,100,099
  255.     db    098,097,096,094,093,092,091,090
  256.     db    089,087,086,085,084,083,082,080
  257.     db    079,078,077,076,075,073,072,071
  258.     db    070,069,068,067,065,064,063,062
  259.     db    061,060,058,057,056,055,054,053
  260.     db    052,051,049,048,047,046,045,044
  261.     db    043,042,040,039,038,037,036,035
  262.     db    034,033,032,030,029,028,027,026
  263.     db    025,024,023,022,021,020,019,018
  264.     db    016,015,014,013,012,011,010,009
  265.     db    008,007,006,005,004,003,002,001
  266.  
  267.     db    000,000,001,001,001,002,002,002
  268.     db    003,003,003,003,004,004,004,005
  269.     db    005,005,005,006,006,006,006,007
  270.     db    007,007,007,008,008,008,008,009
  271.     db    009,009,009,009,010,010,010,010
  272.     db    010,011,011,011,011,011,011,012
  273.     db    012,012,012,012,012,013,013,013
  274.     db    013,013,013,013,014,014,014,014
  275.     db    014,014,014,014,014,015,015,015
  276.     db    015,015,015,015,015,015,015,015
  277.     db    015,016,016,016,016,016,016,016
  278.     db    016,016,016,016,016,016,016,016
  279.     db    016,016,016,016,016,016,016,016
  280.     db    016,016,016,016,016,016,016,016
  281.     db    016,016,016,016,016,016,016,016
  282.     db    016,016,016,016,016,016,016,016
  283.     db    016,016,016,016,016,016,016,016
  284.     db    016,016,015,015,015,015,015,015
  285.     db    015,015,015,015,015,015,015,015
  286.     db    014,014,014,014,014,014,014,014
  287.     db    014,014,014,013,013,013,013,013
  288.     db    013,013,013,013,012,012,012,012
  289.     db    012,012,012,012,012,011,011,011
  290.     db    011,011,011,011,011,010,010,010
  291.     db    010,010,010,010,009,009,009,009
  292.     db    009,009,009,008,008,008,008,008
  293.     db    008,008,007,007,007,007,007,007
  294.     db    007,006,006,006,006,006,006,005
  295.     db    005,005,005,005,005,004,004,004
  296.     db    004,004,004,003,003,003,003,003
  297.     db    003,002,002,002,002,002,002,001
  298.     db    001,001,001,001,001,000,000,000
  299.  
  300.  
  301.  
  302. sin:    push    ebx
  303.     push    ecx
  304.     push    edx
  305.     mov    edx,eax
  306.     and    edx,30000H
  307.     cmp    edx,10000H
  308.     je    sin01
  309.     cmp    edx,30000H
  310.     je    sin01
  311.     jmp    sin02
  312. sin01:    mov    bx,ax
  313.     mov    ax,0ffffH
  314.     sub    ax,bx
  315. sin02:    and    eax,0ffffH
  316.     call    sin03
  317. sin03:    pop    ecx
  318.     add    ecx,sintb-sin03
  319.     push    eax
  320.     shr    eax,8
  321.     mov    bx,cs:[ecx][eax*2]
  322.     mov    cx,cs:[ecx+2][eax*2]
  323.     and    ebx,0ffffH
  324.     and    ecx,0ffffH
  325.     sub    ecx,ebx
  326.     pop    eax
  327.     and    eax,0ffH
  328.     imul    eax,ecx
  329.     shr    eax,8
  330.     add    eax,ebx
  331.     cmp    edx,20000H
  332.     jb    sin04
  333.     mov    ebx,eax
  334.     xor    eax,eax
  335.     sub    eax,ebx
  336. sin04:    pop    edx
  337.     pop    ecx
  338.     pop    ebx
  339.     ret
  340.  
  341. sintb    dw    00000H,00192H,00324H,004B6H,00648H,007DAH,0096CH,00AFDH
  342.     dw    00C8FH,00E21H,00FB2H,01143H,012D5H,01465H,015F6H,01787H
  343.     dw    01917H,01AA7H,01C37H,01DC6H,01F56H,020E5H,02273H,02402H
  344.     dw    0250FH,0271DH,028AAH,02A37H,02BC3H,02D4FH,02EDBH,03066H
  345.     dw    031F1H,0337BH,03505H,0368EH,03816H,0399EH,03B26H,03CADH
  346.     dw    03E33H,03FB9H,0413EH,042C3H,04447H,045CAH,0474CH,048CEH
  347.     dw    04A4FH,04BD0H,04D4FH,04ECEH,0504DH,051CAH,05347H,054C3H
  348.     dw    0563EH,057B8H,05931H,05AAAH,05C21H,05D98H,05F0EH,06083H
  349.     dw    061F7H,0636AH,064DCH,0664DH,067BDH,0692CH,06A9AH,06C07H
  350.     dw    06D73H,06EDEH,07048H,071B1H,07319H,0747FH,075E5H,07749H
  351.     dw    078ACH,07A0FH,07B64H,07CCFH,07E2EH,07F8DH,080E7H,08242H
  352.     dw    0839BH,084F3H,0864AH,087A0H,088F5H,08A48H,08B99H,08CEAH
  353.     dw    08E39H,08F86H,090D3H,0921EH,09367H,094AFH,095F6H,0973BH
  354.     dw    0987FH,099C1H,09B02H,09C41H,09D7FH,09EBBH,09FF6H,0A12FH
  355.     dw    0A266H,0A39CH,0A4D1H,0A604H,0A735H,0A865H,0A993H,0AABFH
  356.     dw    0ABEAH,0AD13H,0AE3BH,0AF60H,0B085H,0B1A7H,0B2C8H,0B3E6H
  357.     dw    0B504H,0B61FH,0B739H,0B851H,0B967H,0BA7BH,0BB8EH,0BC9FH
  358.     dw    0BDAEH,0BEBBH,0BFC6H,0C0D0H,0C1D7H,0C2DDH,0C3E1H,0C4E3H
  359.     dw    0C5E3H,0C6E1H,0C7DDH,0C8D7H,0C9D0H,0CAC6H,0CBBBH,0CCADH
  360.     dw    0CD9EH,0CE8CH,0CF79H,0D063H,0D14CH,0D232H,0D317H,0D3F9H
  361.     dw    0D4DAH,0D5B8H,0D695H,0D76FH,0D847H,0D91DH,0D9F1H,0DAC3H
  362.     dw    0DB93H,0DC60H,0DD2CH,0DDF5H,0DEBDH,0DF82H,0E045H,0E106H
  363.     dw    0E1C4H,0E281H,0E33BH,0E3F3H,0E4A9H,0E55DH,0E60EH,0E6BDH
  364.     dw    0E76AH,0E815H,0E8BEH,0E964H,0EA08H,0EAAAH,0EB4AH,0EBE7H
  365.     dw    0EC82H,0ED1BH,0EDB1H,0EE45H,0EED7H,0EF67H,0EFF4H,0F07FH
  366.     dw    0F108H,0F18EH,0F212H,0F293H,0F313H,0F390H,0F40AH,0F483H
  367.     dw    0F4F9H,0F56CH,0F5DDH,0F64CH,0F6B9H,0F723H,0F78AH,0F7F0H
  368.     dw    0F852H,0F8B3H,0F911H,0F96DH,0F9C6H,0FA1DH,0FA72H,0FAC4H
  369.     dw    0FB13H,0FB60H,0FBABH,0FBF4H,0FC3AH,0FC7DH,0FCBEH,0FCFDH
  370.     dw    0FD39H,0FD73H,0FDAAH,0FDDFH,0FE12H,0FE42H,0FE6FH,0FE9AH
  371.     dw    0FEC3H,0FEE9H,0FF0DH,0FF2EH,0FF2EH,0FF4DH,0FF83H,0FF9BH
  372.     dw    0FFB0H,0FFC2H,0FFD2H,0FFE0H,0FFEBH,0FFF3H,0FFFAH,0FFFDH
  373.     dw    0FFFFH
  374.  
  375. sndVibrato    endp
  376.  
  377. cseg    ends
  378.     end
  379.